;*************************************************************************
;*  WarpUP CD-Installer Version 12   08 Okt 1997                         *
;*                                                                       *
;*  Installer Revision by Jrgen Haage                                   *
;*  1997 HAAGE & PARTNER Computer GmbH                                  *
;*                                                                       *
;*  If you have any installer questions please let us know!              *
;*                                                                       *
;*************************************************************************
;
; $VER: WarpUP V12.2 Install Version 1.0 (15.10.97)

(complete 0)

; Die Versionsnummer und das Erstellungs-Datum der hier installierten
; Versionen.

(set #warpup-version "Version 12.2")
(set #warpup-date "(29.09.97)")

; // Die Dateigren

(set #size-komplett 4) ; CD-Installation

;====================================================================
; Initialisierungen

; --- English strings ---

    (set #yeskey "Yes")
    (set #nokey "No")

    (set #wrongos "\n Sorry, you will need OS2.04 or better\n")

    (set #wrongcpu "\n Sorry, you will need min. a 68020 CPU to use StormC\n")

    (set #welcome (cat "\n"
        "Welcome to the installation of the new\n\n"
        "PowerPC native exec kernel WarpUP-WarpOS.\n\n"
        ""#warpup-version " of "#warpup-date"\n\n"
        "This script copies WarpUP for PowerUP\n"
        "and the Libraries to your harddisk!\n\n"
        " 97 HAAGE&PARTNER Computer GmbH\n"
        ))

    (set #oldversion (cat "\n"
        "There is an old version of WarpUP on your\n"
        "harddisk!\n"
        "" (getassign "STORMC") "\n"
        ))

    (set #oldversion_help (cat "\n"
        "Choose an option!\n"
        ""
        ))

    (set #modus-average (cat "\n"
        "AVERAGE MODE:\n"
        "You should have 12 MB of free disk space!\n\n"
        "You will be asked for a drawer for the\n"
        "installation of StormC.\n\n"
        "Everything else will be optimised to the needs\n"
        "of your Amiga system."
        ))

    (set #new    "New installation")
    (set #doupdate "Update your existing version of StormC")
;    (set #remove "Delete StormC")

    (set #chose_path (cat
        "Please select a device or a drawer for your\n"
        "installation of WarpUP-WarpOS.\n\n"
        "A drawer named \"WarpUP-WarpOS\" will be created\n"
        "automatically!"
        ))

    (set #chose_path_help (cat  "\n"
        "Select 'Show drives' to get an overview of all\n"
        "devices.\n"
        "Please select one of the devices on top of\n"
        "the list.\n"
        "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0:\"\n"
        "Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
        "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", \n"
        "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"! \n\n"
        "A drawer named \"WarpUP-WarpOS\" will be created\n"
        "automatically!\n\n"
        @askdir-help))

    (set #auswahlhilfe (cat "\n"
        "There is an old version of StormC on your\n"
        "harddisk!\n\n"
        "Select \"Yes\" if you want to overwrite the\n"
        "old one. Otherwise select \"No\"!\n"
        ))

    (set #wrk_globalhelp (cat "\n"
        "If you select \"No\" some of your files will\n"
        "be changed. In some cases StormC will not work\n"
        "correct !"
        ))

    (set #ask_compiler (cat "\n"
        "Do you want to install \"StormC\" now ?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_justamoment (cat "\n"
        "This will last some time!\n"
        "Please wait ...\n"
        ))

    (set #wrk_compdecrunch (cat "\n"
        "Unpacking...\n\n"
        "StormC - ANSI C & C++ compiler\n\n"
        #wrk_justamoment
        ))

    (set #decrunch_error (cat "\n\n"
        "Error during unpacking!\n\n"
        "Maybe diskspace got low or you have protected\n"
        "some files.\n"
        ))

    (set #ask_editor (cat "\n"
        "Do you want to install the editor \"StormED\"?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_eddecrunch (cat "\n"
        "Unpacking...\n\n"
        "StormED\n\n"
        #wrk_justamoment
        ))

    (set #ask_linker (cat "\n"
        "Do you want to install the linker \"StormLink\"?\n"
        #wrk_globalhelp
        ))

    (set #wrk_linkdecrunch (cat "\n"
        "Unpacking...\n\n"
        "StormLink\n\n"
        #wrk_justamoment
        ))

    (set #ask_decrunchlib (cat "\n"
        "Do you want to update the OS 3.1 ANSI-Libraries?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_libdecrunch (cat "\n"
        "Unpacking OS 3.1 Libraries...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_fastlibdecrunch (cat "\n"
        "Unpacking special fast version of\n"
        "ANSI library...\n\n"
        "With this Library you are able to create very\n"
        "short and fast executables!\n\n"
        #wrk_justamoment
        ))

    (set #wrk_muilibdecrunch (cat "\n"
        "Unpacking the Mui-Classlibrary...\n\n"
        "With this library you can create MUI programs in\n"
        "the C++ programing language.\n\n"
        #wrk_justamoment
        ))

    (set #wrk_librariandecrunch (cat "\n"
        "Unpacking the Link-Librarymaker \"StormLibrarian\"\n\n"
        "The librarian makes it possible to create link\n"
        "very easy!\n\n"
        #wrk_justamoment
        ))

    (set #wrk_guidedecrunch (cat "\n"
        "Unpacking AmigaGuide icons...\n\n"
        #wrk_justamoment
        ))

;    (set #ask_catalog (cat "\n"
;        "Do you want to update the German catalogue?\n\n"
;        #wrk_globalhelp
;        ))

    (set #wrk_localedecrunchger (cat "\n"
        "Unpacking the German catalogue...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_localedecrunchital (cat "\n"
        "Unpacking the italien Catalog...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_appmanlibdecrunch (cat "\n"
        "Unpacking...\n\n"
        "Application-Manager\n\n"
        #wrk_justamoment
        ))

    (set #ask_mathlibdecrunch (cat "\n"
        "Do you want to install the math libraries?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_mathlibdecrunch (cat "\n"
        "Unpacking...\n\n"
        "Math libraries\n"
        #wrk_justamoment
        ))

    (set #ask_onlinedocudecrunch (cat "\n"
        "Do you want to install the Online-Documentation?\n\n"
        ))

    (set #wrk_onlinedocudecrunch (cat "\n"
        "Unpacking...\n\n"
        "Online-Documentation\n\n"
        #wrk_justamoment
        ))

    (set #ask_sourcedecrunch (cat "\n"
        "Do you want to install the new Startup-Code\n"
        "sources and the source of the lokale catalogs?\n"
        ))

    (set #wrk_sourcedecrunch (cat "\n"
        "Unpacking...\n\n"
        "Startup-Code sources\n\n"
        #wrk_justamoment
        ))

    (set #ask_startupdecrunch (cat "\n"
        "Do you want to install the new Startup-Codes\n"
        "objectfiles?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_startupdecrunch (cat "\n"
        "Unpacking...\n\n"
        "Startup-Code objectfiles\n\n"
        #wrk_justamoment
        ))


    (set #ask_graficdecrunch (cat "\n"
        "Do you want to install the new graphics?\n"
        ))

    (set #wrk_gfxdecrunch (cat "\n"
        "Unpacking...\n\n"
        "Graphics\n"
        #wrk_justamoment
        ))

    (set #ask_lexdecrunch (cat "\n"
        "Do you want to install the new dictionaries\n"
        "for the editor?\n"
        ))

    (set #wrk_lexdecrunch (cat "\n"
        "Unpacking...\n\n"
        "Editor dictionaries\n"
        #wrk_justamoment
        ))

    (set #ask_asmdecrunch (cat "\n"
        "Do you want to install the new assembler\n"
        "interface?\n"
        ))

    (set #wrk_asmdecrunch (cat "\n"
        "Unpacking...\n\n"
        "Assembler interface\n"
        #wrk_justamoment
        ))

    (set #ask_phxassdecrunch (cat "\n"
        "Do you want to install the new Assembler PhxAss?\n"
        ))

    (set #wrk_phxassdecrunch (cat "\n"
        "Unpacking...\n\n"
        "PhxAssembler\n\n"
        #wrk_justamoment
        ))

    (set #ask_cppdecrunch (cat  "\n"
        "Do you want to install the new loader\n"
        "\"StormCPP\"?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_cppdecrunch (cat "\n"
        "Unpacking loader...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_customdecrunch (cat "\n"
        "Unpacking StormCustom...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_disasmdecrunch (cat "\n"
        "Unpacking StormDisassmebler...\n\n"
        #wrk_justamoment
        ))

    (set #ask_rundecrunch (cat "\n"
        "Do you want to install the debugger\n"
        "\"StormRUN\"\n"
        #wrk_globalhelp
        ))

    (set #wrk_rundecrunch (cat "\n"
        "Unpacking...\n"
        "RunShell\n"
        #wrk_justamoment
        ))

    (set #ask_shelldecrunch (cat "\n"
        "Do you want to install the project management\n"
        "\"StormShell\"?\n"
        #wrk_globalhelp
        ))

    (set #wrk_shelldecrunch (cat "\n"
        "Unpacking...\n"
        "StormShell\n"
        #wrk_justamoment
        ))

    (set #ask_settdecrunch (cat "\n"
        "Do you want to install the new presets?\n"
        #wrk_globalhelp
        ))

    (set #wrk_settdecrunch (cat "\n"
        "Unpacking...\n"
        "Presets\n"
        ))

    (set #env_error (cat "\n\n\n\n"
        "Error at installation of ENV arguments!\n"
        ))

    (set #ask_screenman (cat "\n"
        "Do you want to install the ScreenManager into\n"
        "your WB-Startup folder?\n"
        ))

    (set #wrk_screenmancopy (cat "\n"
        "Copy the ScreenManager into your\n"
        "WB-Startup!\n"
        ))

    (set #ask_incldecrunch (cat "\n"
        "Do you want to update the OS 3.1 includes?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_incldecrunch (cat "\n"
        "Unpacking the OS 3.1 includes...\n\n"
        #wrk_justamoment
        ))

    (set #ask_asmincldecrunch (cat "\n"
        "Do you want to install the 3.1 Assembler-\n"
        "Header files?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_asmincldecrunch (cat "\n"
        "Unpacking the OS 3.1 Assembler Includes...\n\n"
        #wrk_justamoment
        ))

    (set #ask_demodecrunch (cat "\n"
        "Do you want to update the examples?\n"
        ))

    (set #wrk_demodecrunch (cat "\n"
        "Unpacking the examples...\n\n"
        #wrk_justamoment
        ))

    (set #ask_rexxdecrunch (cat "\n"
        "Do you want to update the ARexx-Skripts?\n"
        ))

    (set #wrk_rexxdecrunch (cat "\n"
        "Unpacking the ARexx-Skripts...\n\n"
        #wrk_justamoment
        ))

    (set #ask_objectCdecrunch (cat "\n"
        "Do you want to install the ObjectC-\n"
        "Precompiler?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_objectCdecrunch (cat "\n"
        "Unpacking the ObjectC-Precompiler...\n\n"
        #wrk_justamoment
        ))

    (set #prp-insert-disk1 (cat "\n"
        "\n\nPlease insert disk 1 \"StormC_Disk1\" into "
        "any drive now !"
        ))
    (set #prp-insert-disk2 (cat "\n"
        "\n\nPlease insert disk 2 \"StormC_Disk2\" into "
        "any drive now !"
        ))
    (set #prp-insert-disk3 (cat "\n"
        "\n\nPlease insert disk 3 \"StormC_Disk3\" into "
        "any drive now !"
        ))
    (set #prp-insert-disk4 (cat "\n"
        "\n\nPlease insert disk 4 \"StormC_Disk4\" into "
        "any drive now !"
        ))

    (set #prp-insert-disk5 (cat "\n"
        "\n\nPlease insert disk 5 \"StormC_Disk5\" into "
        "any drive now !"
        ))

    (set #prp-insert-disk6 (cat "\n"
        "\n\nPlease insert disk 6 \"StormC_Disk6\" into "
        "any drive now !"
        ))

    (set #prp-copy-menu-lib (cat "\n"
        "Copying menu manager library"
        ))

    (set #hlp-copy-menu-lib (cat        "\n"
        "The menu manager library is used for the\n"
        "menus of StormC.\n\n "
        ))

    (set #wrk-create-pref-file (cat "\n"
        "Creating preset files..."
        ))

    (set #colorset-prompt "\nDo you want to work with editors syntax colouring?")
    (set #lowcolor #nokey)
    (set #hicolor #yeskey)
    (set #colorset-help (cat "\n"
       "You schould work with a minimum of 16 Colors\n"
       "on your Screen if you use syntax colouring!\\nn"
       ))

    (set #lokale_select (cat "\n"
       "Please choose the locale catalogs you want to install!\n\n"
       ))

    (set #lokale_select_help (cat "\n"
       "Please choose one or more locale catalogs.\n\n"
       ))

    (set #tooltype_select (cat "\n"
       "Which Tooltypes do you want to install?\n\n"
       ))

    (set #tooltype_select_help (cat "\n\n"
       " PUBSCREEN=STORMC                                \n\n"
       "If you use the StormC environment on an owe screen\n"
       "you should have or install a plublic screen manager.\n\n"
       " QUIET=TRUE                                      \n\n"
       "There will be no feedback while starting the\n"
       "StormC Environment.\n\n"
       " HOTHELP=TRUE                                    \n\n"
       "You can use the hypertext system Hothelp instead\n"
       "of Amiga Guide.\n\n"
       " GOLDED=TRUE                                     \n\n"
       "Instead of StormED you can work with the GoldED\n"
       "Version 3.1. For debugging the StormED will be loaded.\n"
       "You should configure these if your Amiga have\n"
       "enough memory.\n\n"
       " SAVEMEM=TRUE                                     \n\n"
       "Only the really used programs will be startet. \n"
       "StormC, StormLink, and StormRun will be started\n"
       "if you want to use them.\n"
       ))

    (set #stormc_install_wizardlib (cat "\n"
       "Do you want to install the new version\n"
       "of the StormWizard-Library?\n"
       ))

    (set #stormc_install_wizardlib_help (cat "\n"
       "The Wizard-Library generates the nice\n"
       "GUI interface.\n"
       ))

    (set #nosyntaxcolouring_hint (cat "\n"
       "You don`t want to use the editors syntax colouring!\n\n"
       "If you want to switch it on later you have to\n"
       "change the default icons in the ENVARC:\n"
       "drawer and conigurate the colors in the editor\n"
       "settings.\n"
       ))

    (set #yessyntaxcolouring_hint (cat "\n"
       "You want to work with the editor syntax colouring!\n\n"
       "After programstart please open an empty editor\n"
       "window and make the coloursettings for your system.\n"
       ))

    (set #pubscreenuse_hint (cat "\n"
       "You want to use a public screen!\n\n"
       "Please use the stormScreenManager or an other\n"
       "Tool to open a public screen bevor you start\n"
       "the StormC environment!\n"
       ))

    (set #goldeduse_hint (cat "\n"
       "You use GoldEd instead of StormED!\n\n"
       "You have to configurate GoldEd memory resident.\n\n"
       "(Menu \"Config/Misc\"\n"
       "Dialogentry:\"Misc/resident\")\n"
       ))

    (set #wrk_changingtooltypes (cat "\n"
       "The Tooltype settings will copied to the example\n"
       "files and to the default ikons.\n"
       ))

    (set #regnummer (cat "\n"
       "Please type in the registrationnumber of your\n"
       "StromC licenc.\n\n"
       "You can find the number on the registrationcard.\n"
       "\n"
       ))

    (set #regnummer_help (cat "\n"
       "We need this to give you an easier support on\n"
       "our products.\n"
       "\n"
       ))

    (set #realname (cat "\n"
       "Please type in your name and firstname.\n\n"
       ))

    (set #realname_help (cat "\n"
       "We need this to give you an easier support on\n"
       "our products.\n"
       ))

    (set #registration (cat "\n"
       "You can find a report of the installation in your\n"
       "RAM-Disk with the name \"StormREPORT.TXT\".\n\n"
       "Please print the report an send it back to us\n"
       "together with your registration.\n"
       ))

    (set #copy_backup (cat "\n"
       "Backup the files you have modified.\n"
       "Please copy the files manual back\n"
       "after updating the the compiler system.\n"
      ))

(if (= @language "deutsch") (


    (set #yeskey "Ja")
    (set #nokey "Nein")

    (set #wrongos "\n Sorry, dieses Paket bentigt mind. OS2.04.\n")

    (set #wrongcpu "\n Sorry, das StormC-Paket setzt eine 68020 CPU voraus!\n")

    (set #welcome (cat "Willkommen bei der Installation des neuen\n"
        "PowerPC nativen Exec Kernels WarpUP-WarpOS.\n\n"
        ""#warpup-version " vom "#warpup-date"\n\n"
        "Fr eine Komplett-Installation bentigen Sie\n"
        ""#size-komplett " MBytes freien HD-Speicher!\n\n"
        "Dieses Skript kopiert die verschiedenen\n"
        "Dateien, aus denen sich WarpUP-WarpOS\n"
        "fr PowerUp zusammensetzt, und die neuesten\n"
        "Libraries auf Ihre Festplatte.\n\n"
        "96/97 HAAGE&PARTNER Computer GmbH\n"
        ))

    (set #oldversion (cat "\n"
        "Auf Ihrer Festplatte befindet sich bereits\n"
        "eine Installation von WarpUP!\n"
        "" (getassign "STORMC") "\n"
        ))

    (set #oldversion_help (cat "\n"
        " Whlen Sie einfach die bereits vorhandene\n"
        "Schublade an, wenn Sie ihr altes System\n"
        "aktualisieren mchten!\n\n"
        "Ihr alten Voreinstellungen wie das Default-\n"
        "Projekt oder die Systemeinstellungen werden\n"
        "dadurch BERSCHRIEBEN!"
        ))

    (set #modus-average (cat "\n"
        "Im Einsteiger-Modus wird davon ausgegangen,\n"
        "da StormC auf einer Festplatte installiert\n"
        "wird, auf der noch mindestens ca. 12 MByte\n"
        "freier Speicherplatz verfgbar sind. Sie\n"
        "werden dazu im nchsten Fenster nach dem\n"
        "Namen der gewnschten Schublade gefragt.\n\n"
        "Alles weitere wird dann vom Installations-\n"
        "Skript mglichst genau an Ihr System angepat."
        ))

    (set #new    "Neu installieren")
    (set #doupdate "Update ber bisherige Version installieren")
;    (set #remove "Deinstallation - StormC entfernen")

    (set #chose_path (cat
        "Auswahl des Pfades fr die PPC-Kernel-\n"
        "Installation.Bitte whlen Sie ein Laufwerk\n"
        "oder eine Schublade! Eine Schublade \"WarpUP-WarpOS\"\n"
        "wird automatisch erzeugt."
        ))

    (set #chose_path_help (cat  "\n"
        "Sie knnen ber das Symbol 'Laufwerke anz.'\n"
        "(bzw. 'Show drives') eine bersicht ber alle\n"
        "Laufwerke Ihres Amiga anfordern; aus dieser\n"
        "bersicht sollten Sie nur die oberen, nicht\n"
        "farblich gekennzeichneten Eintrge auswhlen.\n"
        "Typische sinnvolle Namen sind z.B. \"WORK:\",\n"
        "\"HD0:\" oder \"DH0:\" nicht verwenden sollten\n"
        "Sie Namen wie \"DF0:\", \"DF1:\", \"DF2:\",\n"
        "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
        "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!\n\n\n"
        "WarpUP kann nur in eine Schublade nicht aber\n"
        "auf eine Partition direkt installiert werden!\n"
        "Wenn Sie also nur ein Laufwerk fr die\n"
        "Installation auswhlen, wird Ihnen eine\n"
        "Fehlermeldung angezeigt!\n\n"
        @askdir-help))

    (set #auswahlhilfe (cat "\n"
        "Auf Ihrer Festplatte befindet sich bereits\n"
        "eine Version der Datei die installiert werden\n"
        "soll.\n\n"
        "Whlen Sie \"Ja\", wenn Sie die alte Datei mit\n"
        "der neuen berschreiben mchten.\n"
        "Anderenfalls whlen Sie bitte \"Nein\"!\n"
        ))

    (set #wrk_globalhelp (cat "\n"
        "Wenn Sie \"Nein\" whlen ist es mglich, da\n"
        "Ihr System nach der Installation nicht mehr\n"
        "korrekt funktioniert!"
        ))

    (set #ask_compiler (cat "\n"
        "Mchten Sie den Compiler \"StormC\" installieren?\n"
        "\n"
        #wrk_globalhelp
        ))

    (set #wrk_justamoment (cat "\n"
        "Das dauert eine geraume Zeit.\n"
        "Bitte haben Sie etwas Geduld!\n"
        ))

    (set #wrk_compdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "StormC - ANSI C/C++ Compiler V3.0\n\n"
        #wrk_justamoment
        ))

    (set #decrunch_error (cat "\n\n"
        "Fehler beim Entpacken!\n\n"
        "Stellen Sie bitte sicher, da Ihre Festplatte\n"
        "ausreichend Speicherkapazitt hat, und, falls\n"
        "die Dateien bereits vorhanden sind diese nicht\n"
        "Lsch- oder Schreibgeschtzt sind.\n"
        ))

    (set #ask_editor (cat "\n"
        "Mchten Sie den Editor \"StormED\" installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_eddecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Storm-Editor\n\n"
        #wrk_justamoment
        ))

    (set #ask_linker (cat "\n"
        "Mchten Sie den neuen Linker \"StormLink\"\n"
        "installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_linkdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Storm-Linker\n\n"
        #wrk_justamoment
        ))

;    (set #ask_decrunchlib (cat "\n"
;        "Mchten Sie die Bibliotheken installieren?\n\n"
;        #wrk_globalhelp
;        ))

    (set #wrk_libdecrunch (cat "\n"
        "Entpacke die OS 3.1 Bibliotheken...\n\n\n"
        #wrk_justamoment
        ))

    (set #wrk_fastlibdecrunch (cat "\n"
        "Entpacke die Spezialversion der\n"
        "ANSI-Bibliotheken...\n\n"
        "Mit der Bibliothek knnen besonders kurze und\n"
        "und schnelle Programme erzeugt werden.\n\n"
        #wrk_justamoment
        ))

    (set #wrk_muilibdecrunch (cat "\n"
        "Entpacke die Mui-Klassenbibliothek...\n\n"
        "Mit der Bibliothek knnen Sie MUI-Programme\n\n"
        "in C++ programmieren.\n\n"
        #wrk_justamoment
        ))

    (set #wrk_librariandecrunch (cat "\n"
        "Entpacke das neue Programmteil StormLibrarian\n\n"
        "Der Librarian ermglicht Ihnen die Erzeugung\n"
        "von Linker-Bibliotheken auf besonders einfache\n"
        "Art uns Weise.\n\n"
        #wrk_justamoment
        ))

    (set #wrk_guidedecrunch (cat "\n"
        "Entpacke die Amiga-Guide-Datei-Ikons...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_localedecrunchger (cat "\n"
        "Entpacke den deutschsprachigen Katalog...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_localedecrunchital (cat "\n"
        "Entpacke den italienischsprachigen Katalog...\n\n"
        #wrk_justamoment
        ))

;    (set #wrk_localedecrunchfranz (cat "\n"
;        "Entpacke den franzsischsprachigen Katalog...\n\n"
;        #wrk_justamoment
;        ))

;    (set #ask_appmanlibdecrunch (cat "\n"
;        "Mchten Sie die neue Menbibliothek Schnitt-\n"
;        "stelle installieren?\n\n"
;        #wrk_globalhelp
;        ))

    (set #wrk_appmanlibdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Application-Manager\n\n"
        #wrk_justamoment
        ))

    (set #ask_mathlibdecrunch (cat "\n"
        "Mchten Sie die neuen Mathe-Bibliotheken\n"
        "installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_mathlibdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Mathe-Bibliotheken\n"
        #wrk_justamoment
        ))

    (set #ask_onlinedocudecrunch (cat "\n"
        "Mchten Sie die neue Online-Dokumentation\n"
        "installieren?\n"
        ))

    (set #wrk_onlinedocudecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Online-Dokumentation\n\n"
        #wrk_justamoment
        ))

    (set #ask_sourcedecrunch (cat "\n"
        "Mchten Sie die neuen Quelltexte der Startup-\n"
        "Codes und der Lokalisierung installieren?\n"
        ))

    (set #wrk_sourcedecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Startup-Code Sourcen\n\n"
        #wrk_justamoment
        ))

    (set #ask_startupdecrunch (cat "\n"
        "Mchten Sie die neuen Startup-Codes\n"
        "installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_startupdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Startup-Code\n\n"
        #wrk_justamoment
        ))

    (set #ask_graficdecrunch (cat "\n"
        "Mchten Sie die neuen Grafiken installieren?\n "
        ))

    (set #wrk_gfxdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Grafiken\n\n"
        #wrk_justamoment
        ))

    (set #ask_lexdecrunch (cat "\n"
        "Mchten Sie die neuen Lexika installieren?\n"
        ))

    (set #wrk_lexdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Editor-Lexiken\n\n"
        #wrk_justamoment
        ))

    (set #ask_asmdecrunch (cat "\n"
        "Mchten Sie die neue Assembler Schnittstelle\n"
        "installieren?\n"
        ))

    (set #wrk_asmdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Assembler-Schnittstelle\n\n"
        #wrk_justamoment
        ))

    (set #ask_phxassdecrunch (cat "\n"
        "Mchten Sie den neue PhxAss intstallieren?\n"
        ))

    (set #wrk_phxassdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "PhxAssembler\n\n"
        #wrk_justamoment
        ))

;    (set #ask_cppdecrunch (cat  "\n"
;        "Mchten Sie den neuen Lader \"StormCPP\"\n"
;        "installieren?\n\n"
;        #wrk_globalhelp
;        ))

    (set #wrk_cppdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_customdecrunch (cat "\n"
        "Entpacke StormCustom...\n\n"
        #wrk_justamoment
        ))

    (set #wrk_disasmdecrunch (cat "\n"
        "Entpacke StormDisassembler...\n\n"
        #wrk_justamoment
        ))

;    (set #ask_rundecrunch (cat "\n"
;        "Mchten Sie den Debugger \"StormRUN\"\n"
;        "installieren?\n\n"
;       #wrk_globalhelp
;        ))

    (set #wrk_rundecrunch (cat "\n"
        "Entpacke das Compilersystem...\n"
        "RunShell\n\n"
        #wrk_justamoment
        ))

;    (set #ask_shelldecrunch (cat "\n"
;        "Mchten Sie die Projektverwaltung \"StormShell\"\n"
;        "installieren?\n\n"
;        #wrk_globalhelp
;        ))

    (set #wrk_shelldecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "StormShell\n\n"
        #wrk_justamoment
        ))

    (set #ask_settdecrunch (cat "\n"
        "Mchten Sie die neuen Voreinstellungen\n"
        "installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_settdecrunch (cat "\n"
        "Entpacke das Compilersystem...\n\n"
        "Einstellungen\n"
        ))

    (set #env_error (cat "\n\n\n\n"
        "Fehler beim Installieren der ENV-Argumente.\n"
        ))

    (set #ask_screenman (cat "\n"
        "Mchten Sie den ScreenManager in Ihrer\n"
        "WB-Startup installieren\n"
        ))

    (set #wrk_screenmancopy (cat "\n"
        "Kopiere den ScreenManager in Ihrer\n"
        "WB-Startup!\n"
        ))

    (set #ask_incldecrunch (cat "\n"
        "Mchten Sie die 3.1-Includes installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_incldecrunch (cat "\n"
        "Entpacke die OS 3.1 Includes...\n\n"
        #wrk_justamoment
        ))

    (set #ask_asmincldecrunch (cat "\n"
        "Mchten Sie die 3.1 Assembler-Includes\n"
        "installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_asmincldecrunch (cat "\n"
        "Entpacke die OS 3.1 Assembler Includes...\n\n"
        #wrk_justamoment
        ))

    (set #ask_demodecrunch (cat "\n"
        "Mchten Sie die Beispiele berinstallieren?\n"
        ))

    (set #wrk_demodecrunch (cat "\n"
        "Entpacke die Beispiel-Dateien...\n\n"
        #wrk_justamoment
        ))

    (set #ask_rexxdecrunch (cat "\n"
        "Mchten Sie die ARexx-Skripts berinstallieren?\n"
        ))

    (set #wrk_rexxdecrunch (cat "\n"
        "Entpacke die ARexx-Skripts...\n\n"
        #wrk_justamoment
        ))

    (set #ask_objectCdecrunch (cat "\n"
        "Mchten Sie den ObjectC-\n"
        "Precompiler installieren?\n\n"
        #wrk_globalhelp
        ))

    (set #wrk_objectCdecrunch (cat "\n"
        "Entpacke den ObjectC-Precompiler...\n\n"
        #wrk_justamoment
        ))

    (set #prp-insert-disk1 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 1 \"StormC_Disk1\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-insert-disk2 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 2 \"StormC_Disk2\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-insert-disk3 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 3 \"StormC_Disk3\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-insert-disk4 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 4 \"StormC_Disk4\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-insert-disk5 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 5 \"StormC_Disk5\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-insert-disk6 (cat "\n"
        "\n\nBitte legen Sie nun die Diskette 6 \"StormC_Disk6\" "
        "in ein beliebiges Laufwerk ein!"
        ))

    (set #prp-copy-menu-lib (cat "\n"
        "Kopiere die Application-Manager-Library\n"
        ))

    (set #hlp-copy-menu-lib (cat "\n"
        "Die Application-Manager-Library beinhaltet\n"
        "die Menleisten des Systems.\n\n\n"
        ))

    (set #wrk-create-pref-file (cat "\n"
        "Die Voreinstellungs-Datei wird erzeugt..."
        ))

    (set #colorset-prompt "\nSoll die farbliche Syntax-Hervorhebung eingeschaltet werden?")
    (set #lowcolor #nokey)
    (set #hicolor #yeskey)
    (set #colorset-help (cat "\n"
       "Die farbliche Syntax-Markierung setzt voraus,\n"
       "da Sie mit min. 16 Farben arbeiten.\n\n"
       "Bei weniger als 16 Farben, kann es passieren\n"
       "da Textteile bedingt durch die verwendete\n"
       "Farbe nicht dargestellt werden.\n"
       ))

    (set #lokale_select (cat "\n"
       "Bitte whlen Sie, welche der folgenden Landes-\n"
       "sprachen-Kataloge installiert werden sollen: \n"
       ))

    (set #lokale_select_help (cat "\n"
       "Whlen Sie bitte einen oder mehrere der angegebenen\n"
       "Lokale-Kataloge aus. Daraufhin wird jeweils eine\n"
       "Schublade fr die entsprechende Landessprache ange-\n"
       "legt und die Catalog kopiert\n"
       ))

    (set #tooltype_select (cat "\n"
       "Bitte whlen Sie, welche der angegeben Tool-\n"
       "types aktiviert werden sollen:\n"
       ))

    (set #tooltype_select_help (cat "\n\n"
       " PUBSCREEN=STORMC                                \n\n"
       "Wenn StormC auf einem eigenen Screen gestartet   \n"
       "werden soll. Beachten Sie bitte, da Sie auch    \n"
       "den Pub-Screen-Manager installieren mssen.      \n\n"
       " QUIET=TRUE                                      \n\n"
       "Whrend des Systemstarts wird kein Fenster ge-   \n"
       "ffnet und es erfolgt keine Anzeige des Start-   \n"
       "Bildes.                                          \n\n"
       " HOTHELP=TRUE                                    \n\n"
       "Statt der mitgelieferten Online-Hilfe im Amige-  \n"
       "Guide-Format soll alternativ HotHelp verwendet   \n"
       "werden.                                          \n\n"
       " GOLDED=TRUE                                     \n\n"
       "Alternativ zum StormED kann auch der GoldED ab   \n"
       "Version 3.1.4 genutzt werden. Fr den Debugger   \n"
       "wird nach wie vor der StormED geladen.           \n"
       "Diese Koniguration sollten Sie nur verwenden,    \n"
       "wenn Sie ber ausreichend RAM-Speicher verfgen. \n\n"
       " SAVEMEM=TRUE                                     \n\n"
       "Es werden nur die zum Starten bentigten Programme\n"
       "gestartet. Um Speicher zu sparen ldt die Storm- \n"
       "Shell die Programmteile StormC, StormLink, und   \n"
       "StormRun erst bei Bedarf nach.                   \n"
       "Wenn Sie ber ausreichend Speicher verfgen      \n"
       "sollten Sie diese Option nicht nutzen.           \n"
       ))

    (set #stormc_install_wizardlib (cat "\n"
       "Installiert die aktuelle Version der\n"
       "StormWizard-Library\n"
       ))

    (set #stormc_install_wizardlib_help (cat "\n"
       "Die Wizard-Library wird fr die Oberflchen-\n"
       "darstellung bentigt.\n"
       ))

    (set #stormc_install_powerpclib (cat "\n"
       "Installiert die aktuelle Version der\n"
       "PowerPC-Library\n"
       ))

    (set #stormc_install_powerpclib_help (cat "\n"
       "Die PowerPC-Library wird fr die Kommunikation\n"
       "zwischen dem PowerUP-Board und Ihren Applikationen\n"
       "bentigt.\n"
       ))

    (set #nosyntaxcolouring_hint (cat "\n"
       "Sie haben sich entschieden, ohne farbliche\n"
       "Syntax-Hervorhebung zu arbeiten!\n\n"
       "Um diese spter eventuell einzuschalten,\n"
       "mssen Sie die Default-Piktogramme in ENVARC:\n"
       "neu installieren und die Farbzuordung im Text-\n"
       "editor auf Ihr System abstimmen!\n"
       ))

    (set #yessyntaxcolouring_hint (cat "\n"
       "Sie haben sich entschieden, mit farblicher\n"
       "Syntax-Hervorhebung zu arbeiten!\n\n"
       "ffnen Sie bitte nach den Programmstart ein\n"
       "leeres Texteditorfenster und nehmen eine\n"
       "Abstimmung der Farbzuordung fr Ihr System vor.\n"
       ))

    (set #pubscreenuse_hint (cat "\n"
       "Sie nutzen das Public-Screen Tooltype!\n\n"
       "Stellen Sie bitte sicher, da Sie mit dem\n"
       "StormScreenManager oder einem anderen Tool\n"
       "einen Public-Screen mit dem Namen STORMC\n"
       "definiert haben, damit das Entwicklungssystem\n"
       "auf einem eigenen Screen gestartet werden kann.\n"
       ))

    (set #goldeduse_hint (cat "\n"
       "Sie nutzen GoldEd anstelle von StormED!\n\n"
       "Um GoldEd in der StormC-Umgebung nutzen zu\n"
       "knnen mu er resident gestartet werden.\n\n"
       "(Men \"Konfig/Diverses\"\n"
       "Dialogeintrag:\"Diverses/resident\")\n"
       ))

    (set #wrk_changingtooltypes (cat "\n"
       "Die Tooltype-Einstellungen werden auf die\n"
       "Demo-Programme und auf die Vorgaben-Piktogamme\n"
       "bertragen!\n"
       ))

    (set #regnummer (cat "\n"
       "Bitte geben Sie die Registriernummer Ihres\n"
       "StromC-Paketes an.\n\n"
       "Die Nummer finden Sie auf der Registrierkarte im\n"
       "Diskettenumschlag\n"
       ))

    (set #regnummer_help (cat "\n"
       "Die Angaben der Registriernummer werden fr eine\n"
       "einfachere Supportabwicklung in den ENV-Variablen\n"
       "gespeichert\n"
       ))

    (set #realname (cat "\n"
       "Bitte geben Sie Ihren Vor- und Zunamen hier an.\n\n"
       ))

    (set #realname_help (cat "\n"
       "Ihr Namen wird fr eine einfachere Support-\n"
       "abwicklung in den ENV-Variablen gespeichert\n\n"
       ))

    (set #registration (cat "\n"
       "Einen Report der Installation finden Sie in Ihrer\n"
       "RAM-Disk unter dem Namen \"StormREPORT.TXT\".\n\n"
       "Bitte drucken Sie die Datei aus und bersenden Sie\n"
       "sie uns zusammen mit der Registrierung.\n"
       "Die darin enthaltenen Daten werden fr alle\n"
       "Supportarbeiten bentigt.\n"
       "Sie knnen sie jederzeit erneut erzeugen, indem Sie\n"
       "das Programm StormREPORT in der StromSYS-Schublade\n"
       "starten und die Ausgabe auf die RAM-Disk umlenken.\n"
       ))

    (set #copy_backup (cat "\n"
       "Die eventuell von Ihnen vernderte Dateien\n"
       "werden in der Schublade \"OldFiles\" gesichert.\n\n"
       "Bitte kopieren Sie sie gegebenefalls nach dem\n"
       "Updaten manuell wieder zurck!\n\n"
       ))
))
; ----------------------------- Prozeduren ------------------------------

(Procedure P_Make_Folder
    (
    (set #folder (tackon #folder "WarpUP-WarpOS"))
        (if (= (exists #folder) 0)
            (
            (makedir #folder (infos))
            )
            (
            (set #update 1)        ; // Doch schon vorhanden!
            )
        )
    )
)

(set @default-dest "")

(set #os-version (/ (getversion) 65536))
(set #os-13 (< #os-version 36))
(set #os-20 (>= #os-version 36))
(set #os-21 (>= #os-version 38))

(set #totalmem (database "total-mem")) ; Diese schne Funktion vereinfacht einiges

; ---Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden. ---

(set #run-lha            "run RAM:Lhex x -a ")

; ------------ Die Pfadnamen der einzelnen Quell-Dateien ----------------


;=====================================================================================
; // Beginn der Installation
;=====================================================================================

; // wird min. unter 2.04 installiert ?

(if (= #os-13 1)

    (
        (message #wrongos)

        (exit (quiet))
    )
)

(if (patmatch "68000|68010" (database "cpu"))
    (
        (message #wrongcpu)
        (exit (quiet))
    )
)

(onerror (
    (if (> @ioerr 0)
        (message (cat "\n ERROR CODE: " @ioerr "\n\n"))
    )
))

; // Eine kleine Einleitung, gefolgt vom Startbild des Installers.

;(set #act-user-level (user 1))

(message #welcome)

;(user #act-user-level)
(welcome)

(complete 2)

; // Alte Version prfen und entsprechende Abfrage ausgeben!--------------------------------------------

(set #update 0)

(set #folder "WORK:")

; ---------------- Die Ausgabe fr die mit ausreichend Speicher ---------

(if (= #update 0)
    (
    (set #ok 0)
        (while (not #ok)
            (set #folder
                (askdir
                (prompt #chose_path)
                (help #chose_path_help)    ; // Auswahl Hilfetext
                (default #folder)
                (disk)
                )
            )

            (P_Make_Folder)    ; // Automatisch neues Verzeichnis anlegen!

    (set #dir_error (cat  "\n"
        "Your selection \"" #folder "\" is not a\n"
        "valid device or drawer!\n\n"
        "Select 'Show drives' to get an overview of all\n"
        "devices available on your Amiga.\n"
        "Please select one of the devices on top of\n"
        "the list.\n"
        "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0\"\n"
        "Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
        "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
        "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"!\n\n"
        ))

    (set #memory_error (cat  "\n"
        "There is not enough free disk space at the\n"
        "device you have selected for the installation.\n\n"
        "Free diskspace    " #freediskspace "!\n"
        "Diskspace needed  " #size-komplett "!\n\n"
        "Please select a another device or harddisk!"
        ))


(if (= @language "deutsch") (


    (set #dir_error (cat  "\n"
        "Bei Ihrer Auswahl \"" #folder "\" handelt es   \n"
        "sich nicht um eine gltige Schublade!         \n"
        "                                              \n"
        "Sie knnen ber das Symbol 'Laufwerke anz.'   \n"
        "(bzw. 'Show drives') eine bersicht ber alle \n"
        "Laufwerke Ihres Amiga anfordern; aus dieser   \n"
        "bersicht sollten Sie nur die oberen, nicht   \n"
        "farblich gekennzeichneten Eintrge auswhlen. \n"
        "ber den Schalter \"Neue Schublade anlegen..\"\n"
        "knnen Sie ein neue Schublade erzeugen. Diese \n"
        "neue Schublade wird auf der Partition        \n"
        "angelegt, die Sie soeben betrachten."
        ))

    (set #memory_error (cat  "\n"
        "Auf der ausgewhlten Festplattenpartition     \n"
        "steht nicht gengend freier Speicher fr die  \n"
        "komplette Installation des Compilersystems zur\n"
        "Verfgung.                                    \n"
        "                                              \n"
        "Freier Speicher " #freediskspace "!            \n"
        "Bentigter Speicher " #size-komplett "!        \n"
        "                                              \n"
        "Bitte whlen Sie eine andere Partition, auf   \n"
        "der entsprechende Kapazitten vorhanden sind!"
        ))
))

(if (= @language "italiano") (

    (set #dir_error (cat  "\n"
        "La vostra selezione (\"" #folder "\") non \n"
        "un disco o un cassetto valido!\n\n"
        "Selezionate 'Dischi' per avere una lista dei\n"
        "dischi disponibili sul vostro Amiga.\n"
        "Alcuni nomi tipici sono \"WORK:\", \"HD0:\" o \"DH0\"\n"
        "NON usate \"DF0:\", \"DF1:\", \"DF2:\",\n"
        "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
        "\"WB_2.x:\", \"System3.0:\" o \"WB_3.x:\"!\n\n"
        ))

    (set #memory_error (cat  "\n"
        "Il disco che avete selezionato non ha\n"
        "abbastanza spazio libero.\n\n"
        "Spazio disponibile   " #freediskspace "\n"
        "Spazio richiesto     " #size-komplett "\n\n"
        "Provate a selezionare un altro disco."
        ))
))

            ; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
            ; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
            ; // kann die Auswahl-Schleife beendet werden.
            (if (or (or (or (<= (strlen #folder) 0) (= (substr #folder (- (strlen #folder) 1) 1) ":")) (= (exists #folder (noreq)) 0)) (= (getdiskspace #folder) -1))
                (message #dir_error)  ; Fehler bei der Auswahl der Schublade
                ;else
                (
                    (set #freediskspace (getdiskspace #folder))  ; // Der freie Speicher auf diesem Medium
                    (if (< #freediskspace #size-komplett)
                        (
                        ;(user 1)
                            (message #memory_error)  ; // nicht gengend freier Speicher
                        )
                     ;else
                        (set #ok 1)
                    )
                )
            )
        )
    )
)

;(user #act-user-level)

; Alles auf die Platte kopieren

(complete 10)

(set #destenvarc (tackon "envarc:" "PowerPC"))
(if                                         ; // Verzeichnis fr Envargumente erzeugen
   (= (exists #destenvarc) 0)
    (
      (makedir #destenvarc (infos))
      (copyfiles
          (prompt #copyall)
          (help @copyfiles-help)
          (dest #destenvarc)
          (source (tackon (pathonly @icon) "WarpUP-WarpOS/env/powerpc"))
          (all)
          (confirm)
      )
    )
)

(complete 20)

(set #destenvarc (tackon "env:" "PowerPC"))
(if                                         ; // Verzeichnis fr Envargumente erzeugen
   (= (exists #destenvarc) 0)
    (
      (makedir #destenvarc (infos))
      (copyfiles
          (prompt #copyall)
          (help @copyfiles-help)
          (dest #destenvarc)
          (source (tackon (pathonly @icon) "WarpUP-WarpOS/env/powerpc"))
          (all)
          (confirm)
      )

    )
)

(complete 30)

(copylib
    (prompt  #stormc_install_powerpclib)
    (help    #stormc_install_powerpclib_help)
    (source  (tackon (pathonly @icon) "WarpUP-WarpOS/V7/PowerPC.library"))
    (dest    "libs:")
    (confirm)
)

(complete 40)

; Dummy Elf kopieren

(copyfiles
    (prompt #copyall)
    (help @copyfiles-help)
    (dest "S:")
    (source (tackon (pathonly @icon) "WarpUP-WarpOS/V7/dummy.elf"))
)

(complete 50)

(copyfiles
    (prompt #copyall)
    (help @copyfiles-help)
    (dest #folder)
    (source (tackon (pathonly @icon) "WarpUP-WarpOS"))
    (all)
    (confirm)
)

(complete 100)

